home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mcstr-32 / _string.frm (.txt) < prev    next >
Visual Basic Form  |  1996-08-06  |  82KB  |  1,890 lines
  1. VERSION 4.00
  2. Begin VB.Form frmString 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "String"
  5.    ClientHeight    =   5235
  6.    ClientLeft      =   330
  7.    ClientTop       =   2385
  8.    ClientWidth     =   7785
  9.    Height          =   5640
  10.    Left            =   270
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5235
  14.    ScaleWidth      =   7785
  15.    ShowInTaskbar   =   0   'False
  16.    Top             =   2040
  17.    Width           =   7905
  18.    Begin VB.TextBox txt_Result 
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'None
  21.       Height          =   4005
  22.       Left            =   105
  23.       Locked          =   -1  'True
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   2  'Vertical
  26.       TabIndex        =   8
  27.       Top             =   630
  28.       Width           =   7575
  29.    End
  30.    Begin Threed.SSPanel SSPanel1 
  31.       Align           =   1  'Align Top
  32.       Height          =   480
  33.       Left            =   0
  34.       TabIndex        =   0
  35.       Top             =   0
  36.       Width           =   7785
  37.       _Version        =   65536
  38.       _ExtentX        =   13732
  39.       _ExtentY        =   847
  40.       _StockProps     =   15
  41.       ForeColor       =   -2147483640
  42.       BackColor       =   12632256
  43.       Begin VB.ComboBox cmb_Function 
  44.          Height          =   315
  45.          Left            =   1365
  46.          TabIndex        =   1
  47.          Top             =   90
  48.          Width           =   5100
  49.       End
  50.       Begin Threed.SSCommand cmdNP 
  51.          Height          =   300
  52.          Index           =   1
  53.          Left            =   7455
  54.          TabIndex        =   10
  55.          Top             =   90
  56.          Width           =   255
  57.          _Version        =   65536
  58.          _ExtentX        =   450
  59.          _ExtentY        =   529
  60.          _StockProps     =   78
  61.          Caption         =   ">"
  62.          BevelWidth      =   1
  63.          Font3D          =   3
  64.          RoundedCorners  =   0   'False
  65.          Outline         =   0   'False
  66.       End
  67.       Begin Threed.SSCommand cmdNP 
  68.          Height          =   300
  69.          Index           =   0
  70.          Left            =   6615
  71.          TabIndex        =   9
  72.          Top             =   90
  73.          Width           =   255
  74.          _Version        =   65536
  75.          _ExtentX        =   450
  76.          _ExtentY        =   529
  77.          _StockProps     =   78
  78.          Caption         =   "<"
  79.          BevelWidth      =   1
  80.          Font3D          =   3
  81.          RoundedCorners  =   0   'False
  82.          Outline         =   0   'False
  83.       End
  84.       Begin VB.Label Label2 
  85.          Caption         =   "&Select a function"
  86.          Height          =   255
  87.          Left            =   90
  88.          TabIndex        =   3
  89.          Top             =   120
  90.          Width           =   1275
  91.       End
  92.       Begin Threed.SSCommand SSCommand1 
  93.          Default         =   -1  'True
  94.          Height          =   300
  95.          Left            =   6930
  96.          TabIndex        =   2
  97.          Top             =   90
  98.          Width           =   465
  99.          _Version        =   65536
  100.          _ExtentX        =   820
  101.          _ExtentY        =   529
  102.          _StockProps     =   78
  103.          Caption         =   "&Go"
  104.          BevelWidth      =   1
  105.          RoundedCorners  =   0   'False
  106.          Outline         =   0   'False
  107.       End
  108.    End
  109.    Begin Threed.SSPanel SSPanel2 
  110.       Align           =   2  'Align Bottom
  111.       Height          =   465
  112.       Left            =   0
  113.       TabIndex        =   4
  114.       Top             =   4770
  115.       Width           =   7785
  116.       _Version        =   65536
  117.       _ExtentX        =   13732
  118.       _ExtentY        =   820
  119.       _StockProps     =   15
  120.       BackColor       =   12632256
  121.       Begin VB.TextBox Text1 
  122.          Height          =   285
  123.          Left            =   1440
  124.          TabIndex        =   6
  125.          Tag             =   "A/BC/DEF/GHIJ/KLMNOP/"
  126.          Top             =   90
  127.          Width           =   5370
  128.       End
  129.       Begin Threed.SSCommand SSCommand2 
  130.          Height          =   285
  131.          Left            =   6885
  132.          TabIndex        =   7
  133.          Top             =   90
  134.          Width           =   825
  135.          _Version        =   65536
  136.          _ExtentX        =   1455
  137.          _ExtentY        =   503
  138.          _StockProps     =   78
  139.          Caption         =   "&Reset"
  140.          BevelWidth      =   1
  141.          Outline         =   0   'False
  142.       End
  143.       Begin VB.Label Label1 
  144.          Caption         =   "&Enter a test string"
  145.          Height          =   255
  146.          Left            =   90
  147.          TabIndex        =   5
  148.          Top             =   120
  149.          Width           =   1275
  150.       End
  151.    End
  152. Attribute VB_Name = "frmString"
  153. Attribute VB_Creatable = False
  154. Attribute VB_Exposed = False
  155. Option Explicit
  156. Option Base 1
  157. Private Const Iteration = 250
  158. Dim IsLoaded         As Integer
  159. Dim TimerStartOk     As Single
  160. Private Sub cmdNP_Click(Index As Integer)
  161.    Call sub_NextPrev(cmb_Function, Index)
  162. End Sub
  163. Private Sub cmb_Function_Click()
  164.    If (IsLoaded = False) Then Exit Sub
  165.    mdiMCSTR.Picture1.Visible = True
  166.    mdiMCSTR.Enabled = False
  167.    SSPanel2.Visible = True
  168.    txt_Result = ""
  169.    DoEvents
  170.    Select Case cmb_Function.ListIndex
  171.       Case 0
  172.          Call TestOneCharFromLeft
  173.       Case 1
  174.          Call TestOneCharFromRight
  175.       Case 2
  176.          Call TestBlockCharFromLeft
  177.       Case 3
  178.          Call TestBlockCharFromRight
  179.       Case 4
  180.          Call TestGetIn
  181.       Case 5
  182.          Call TestGetInR
  183.       Case 6
  184.          Call TestGetInPart
  185.       Case 7
  186.          Call TestGetInPartR
  187.       Case 8
  188.          Call TestGetBlock
  189.       Case 9
  190.          Call TestInsertChars
  191.       Case 10
  192.          Call TestInsertByMask
  193.       Case 11
  194.          Call TestInsertBlocks
  195.       Case 12
  196.          Call TestInsertBlocksBy
  197.       Case 13
  198.          Call TestRemoveOneChar
  199.       Case 14
  200.          Call TestRemoveBlockChar
  201.       Case 15
  202.          Call TestTokenIn
  203.       Case 16
  204.          SSPanel2.Visible = False
  205.          Call TestOrTokenX
  206.       Case 17
  207.          SSPanel2.Visible = False
  208.          Call TestAndTokenX
  209.       Case 18
  210.          Call TestReverse
  211.       Case 19
  212.          Call TestMixChars
  213.       Case 20
  214.          Call TestScrollX
  215.       Case 21
  216.          Call TestChangeChars
  217.       Case 22
  218.          Call TestChangeCharsUntil
  219.       Case 23
  220.          Call TestCheckChars
  221.       Case 24
  222.          Call TestFilterChars
  223.       Case 25
  224.          Call TestFilterNotChars
  225.       Case 26
  226.          Call TestFilterBlocks
  227.       Case 27
  228.          Call TestResizeString
  229.       Case 28
  230.          Call TestResizeStringAndFill
  231.       Case 29
  232.          Call TestCreateAndFill
  233.       Case 30
  234.          Call TestFill
  235.       Case 31
  236.          Call TestLrc
  237.       Case 32
  238.          Call TestCompress
  239.       Case 33
  240.          SSPanel2.Visible = False
  241.          Call TestCompressTab
  242.       Case 34
  243.          Call TestCompact
  244.       Case 35
  245.          Call TestAlign
  246.       Case 36
  247.          Call TestProperName
  248.       Case 37
  249.          Call TestProperName2
  250.       Case 38
  251.          Call TestStringSAR
  252.       Case 39
  253.          Call TestToHexa
  254.       Case 40
  255.          SSPanel2.Visible = False
  256.          Call TestRomanArabic
  257.       Case 41
  258.          Call TestAsciiEbcdic
  259.       Case 42
  260.          SSPanel2.Visible = False
  261.          Call TestPatternMatch
  262.       Case 43
  263.          SSPanel2.Visible = False
  264.          Call TestPatternExtMatch
  265.       Case 44
  266.          Call TestCheckNumericity
  267.       Case 45
  268.          Call TestAlphaDigit
  269.       Case 46
  270.          SSPanel2.Visible = False
  271.          Call TestH2X
  272.       Case 47
  273.          Call TestMorse
  274.    End Select
  275.    DoEvents
  276.    mdiMCSTR.Enabled = True
  277.    mdiMCSTR.Picture1.Visible = False
  278. End Sub
  279. Private Sub Form_Activate()
  280.    mdiMCSTR.Label2.Caption = cInsertBlocks(mdiMCSTR.Label2.Tag, "" & Iteration)
  281. End Sub
  282. Private Sub Form_Load()
  283.    IsLoaded = False
  284.    Show
  285.    Text1.Text = Text1.Tag + Left$(LCase$(Text1.Tag), Len(Text1.Tag) - 1)
  286.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_string.t2w")
  287.    IsLoaded = True
  288. End Sub
  289. Private Sub SSCommand1_Click()
  290.    Call cmb_Function_Click
  291. End Sub
  292. Private Sub TestOneCharFromLeft()
  293.    Dim intResult        As Integer
  294.    Dim strResult        As String
  295.    Dim strDisplay       As String
  296.    Dim i                As Integer
  297.    Dim Str1             As String
  298.    intResult = 0
  299.    strResult = ""
  300.    strDisplay = ""
  301.      
  302.    Str1 = Text1.Text
  303.    strDisplay = strDisplay & "The 3,7,1,21,14 chars from left of '" & Str1 & "' are " & vbCrLf & vbCrLf
  304.    strDisplay = strDisplay & "03: '" & cOneCharFromLeft(Str1, 3) & "'" & vbCrLf
  305.    strDisplay = strDisplay & "07: '" & cOneCharFromLeft(Str1, 7) & "'" & vbCrLf
  306.    strDisplay = strDisplay & "01: '" & cOneCharFromLeft(Str1, 1) & "'" & vbCrLf
  307.    strDisplay = strDisplay & "21: '" & cOneCharFromLeft(Str1, 21) & "'" & vbCrLf
  308.    strDisplay = strDisplay & "14: '" & cOneCharFromLeft(Str1, 14) & "'" & vbCrLf
  309.    txt_Result = strDisplay
  310.    'time the function
  311.    TimerStartOk = Timer
  312.    For i = 1 To Iteration
  313.       strResult = cOneCharFromLeft(Str1, 3)
  314.    Next i
  315.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  316. End Sub
  317. Private Sub SSCommand2_Click()
  318.    Text1.Text = Text1.Tag + Left$(LCase$(Text1.Tag), Len(Text1.Tag) - 1)
  319.    Call SSCommand1_Click
  320. End Sub
  321. Private Sub TestOneCharFromRight()
  322.    Dim intResult        As Integer
  323.    Dim strResult        As String
  324.    Dim strDisplay       As String
  325.    Dim i                As Integer
  326.    Dim Str1             As String
  327.    intResult = 0
  328.    strResult = ""
  329.    strDisplay = ""
  330.      
  331.    Str1 = Text1.Text
  332.    strDisplay = strDisplay & "The 3,7,1,21,14 chars from right of '" & Str1 & "' are " & vbCrLf & vbCrLf
  333.    strDisplay = strDisplay & "03: '" & cOneCharFromRight(Str1, 3) & "'" & vbCrLf
  334.    strDisplay = strDisplay & "07: '" & cOneCharFromRight(Str1, 7) & "'" & vbCrLf
  335.    strDisplay = strDisplay & "01: '" & cOneCharFromRight(Str1, 1) & "'" & vbCrLf
  336.    strDisplay = strDisplay & "21: '" & cOneCharFromRight(Str1, 21) & "'" & vbCrLf
  337.    strDisplay = strDisplay & "14: '" & cOneCharFromRight(Str1, 14) & "'" & vbCrLf
  338.    txt_Result = strDisplay
  339.    'time the function
  340.    TimerStartOk = Timer
  341.    For i = 1 To Iteration
  342.       strResult = cOneCharFromRight(Str1, 3)
  343.    Next i
  344.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  345. End Sub
  346. Private Sub TestBlockCharFromLeft()
  347.    Dim intResult        As Integer
  348.    Dim strResult        As String
  349.    Dim strDisplay       As String
  350.    Dim i                As Integer
  351.    Dim Str1             As String
  352.    intResult = 0
  353.    strResult = ""
  354.    strDisplay = ""
  355.      
  356.    Str1 = Text1.Text
  357.    strDisplay = strDisplay & "The 3,7,1,21,14 blocks from left of '" & Str1 & "' are " & vbCrLf & vbCrLf
  358.    strDisplay = strDisplay & "03: '" & cBlockCharFromLeft(Str1, 3) & "'" & vbCrLf
  359.    strDisplay = strDisplay & "07: '" & cBlockCharFromLeft(Str1, 7) & "'" & vbCrLf
  360.    strDisplay = strDisplay & "01: '" & cBlockCharFromLeft(Str1, 1) & "'" & vbCrLf
  361.    strDisplay = strDisplay & "21: '" & cBlockCharFromLeft(Str1, 21) & "'" & vbCrLf
  362.    strDisplay = strDisplay & "14: '" & cBlockCharFromLeft(Str1, 14) & "'" & vbCrLf
  363.    txt_Result = strDisplay
  364.    'time the function
  365.    TimerStartOk = Timer
  366.    For i = 1 To Iteration
  367.       strResult = cBlockCharFromLeft(Str1, 3)
  368.    Next i
  369.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  370. End Sub
  371. Private Sub TestBlockCharFromRight()
  372.    Dim intResult        As Integer
  373.    Dim strResult        As String
  374.    Dim strDisplay       As String
  375.    Dim i                As Integer
  376.    Dim Str1             As String
  377.    intResult = 0
  378.    strResult = ""
  379.    strDisplay = ""
  380.      
  381.    Str1 = Text1.Text
  382.    strDisplay = strDisplay & "The 3,7,1,21,14 blocks from right of '" & Str1 & "' are " & vbCrLf & vbCrLf
  383.    strDisplay = strDisplay & "03: '" & cBlockCharFromRight(Str1, 3) & "'" & vbCrLf
  384.    strDisplay = strDisplay & "07: '" & cBlockCharFromRight(Str1, 7) & "'" & vbCrLf
  385.    strDisplay = strDisplay & "01: '" & cBlockCharFromRight(Str1, 1) & "'" & vbCrLf
  386.    strDisplay = strDisplay & "21: '" & cBlockCharFromRight(Str1, 21) & "'" & vbCrLf
  387.    strDisplay = strDisplay & "14: '" & cBlockCharFromRight(Str1, 14) & "'" & vbCrLf
  388.    txt_Result = strDisplay
  389.    'time the function
  390.    TimerStartOk = Timer
  391.    For i = 1 To Iteration
  392.       strResult = cBlockCharFromRight(Str1, 3)
  393.    Next i
  394.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  395. End Sub
  396. Private Sub TestGetIn()
  397.    Dim intResult        As Integer
  398.    Dim strResult        As String
  399.    Dim strDisplay       As String
  400.    Dim i                As Integer
  401.    Dim Str1             As String
  402.    Dim Sep1             As String
  403.    intResult = 0
  404.    strResult = ""
  405.    strDisplay = ""
  406.      
  407.    Str1 = Text1.Text
  408.    Sep1 = "/"
  409.    strDisplay = strDisplay & "The 3,7,1,5,2,0 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  410.    strDisplay = strDisplay & "3: '" & cGetIn(Str1, Sep1, 3) & "'" & vbCrLf
  411.    strDisplay = strDisplay & "7: '" & cGetIn(Str1, Sep1, 7) & "'" & vbCrLf
  412.    strDisplay = strDisplay & "1: '" & cGetIn(Str1, Sep1, 1) & "'" & vbCrLf
  413.    strDisplay = strDisplay & "5: '" & cGetIn(Str1, Sep1, 5) & "'" & vbCrLf
  414.    strDisplay = strDisplay & "2: '" & cGetIn(Str1, Sep1, 2) & "'" & vbCrLf
  415.    strDisplay = strDisplay & "0: '" & cGetIn(Str1, Sep1, 0) & "'" & vbCrLf & vbCrLf
  416.    Sep1 = "G"
  417.    strDisplay = strDisplay & "The 1,2 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  418.    strDisplay = strDisplay & "1: '" & cGetIn(Str1, Sep1, 1) & "'" & vbCrLf
  419.    strDisplay = strDisplay & "2: '" & cGetIn(Str1, Sep1, 2) & "'" & vbCrLf & vbCrLf
  420.    Sep1 = "g"
  421.    strDisplay = strDisplay & "The 2,1 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  422.    strDisplay = strDisplay & "2: '" & cGetIn(Str1, Sep1, 2) & "'" & vbCrLf
  423.    strDisplay = strDisplay & "1: '" & cGetIn(Str1, Sep1, 1) & "'"
  424.    txt_Result = strDisplay
  425.    'time the function
  426.    TimerStartOk = Timer
  427.    For i = 1 To Iteration
  428.       strResult = cGetIn(Str1, Sep1, 3)
  429.    Next i
  430.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  431. End Sub
  432. Private Sub TestGetInR()
  433.    Dim intResult        As Integer
  434.    Dim strResult        As String
  435.    Dim strDisplay       As String
  436.    Dim i                As Integer
  437.    Dim Str1             As String
  438.    Dim Sep1             As String
  439.    intResult = 0
  440.    strResult = ""
  441.    strDisplay = ""
  442.      
  443.    Str1 = Text1.Text
  444.    Sep1 = "/"
  445.    strDisplay = strDisplay & "The 3,7,1,5,2,0 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  446.    strDisplay = strDisplay & "3: '" & cGetInR(Str1, Sep1, 3) & "'" & vbCrLf
  447.    strDisplay = strDisplay & "7: '" & cGetInR(Str1, Sep1, 7) & "'" & vbCrLf
  448.    strDisplay = strDisplay & "1: '" & cGetInR(Str1, Sep1, 1) & "'" & vbCrLf
  449.    strDisplay = strDisplay & "5: '" & cGetInR(Str1, Sep1, 5) & "'" & vbCrLf
  450.    strDisplay = strDisplay & "2: '" & cGetInR(Str1, Sep1, 2) & "'" & vbCrLf
  451.    strDisplay = strDisplay & "0: '" & cGetInR(Str1, Sep1, 0) & "'" & vbCrLf & vbCrLf
  452.    Sep1 = "G"
  453.    strDisplay = strDisplay & "The 1,2 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  454.    strDisplay = strDisplay & "1: '" & cGetInR(Str1, Sep1, 1) & "'" & vbCrLf
  455.    strDisplay = strDisplay & "2: '" & cGetInR(Str1, Sep1, 2) & "'" & vbCrLf & vbCrLf
  456.    Sep1 = "g"
  457.    strDisplay = strDisplay & "The 2,1 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  458.    strDisplay = strDisplay & "2: '" & cGetInR(Str1, Sep1, 2) & "'" & vbCrLf
  459.    strDisplay = strDisplay & "1: '" & cGetInR(Str1, Sep1, 1) & "'"
  460.    txt_Result = strDisplay
  461.    'time the function
  462.    TimerStartOk = Timer
  463.    For i = 1 To Iteration
  464.       strResult = cGetInR(Str1, Sep1, 3)
  465.    Next i
  466.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  467. End Sub
  468. Private Sub TestGetInPart()
  469.    Dim intResult        As Integer
  470.    Dim strResult        As String
  471.    Dim strDisplay       As String
  472.    Dim i                As Integer
  473.    Dim Str1             As String
  474.    Dim Sep1             As String
  475.    intResult = 0
  476.    strResult = ""
  477.    strDisplay = ""
  478.      
  479.    Str1 = Text1.Text
  480.    Sep1 = "/"
  481.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  482.    strDisplay = strDisplay & "First: '" & cGetInPart(Str1, Sep1, True) & "'" & vbCrLf
  483.    strDisplay = strDisplay & "Second: '" & cGetInPart(Str1, Sep1, False) & "'" & vbCrLf & vbCrLf
  484.    Sep1 = "G"
  485.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  486.    strDisplay = strDisplay & "First: '" & cGetInPart(Str1, Sep1, True) & "'" & vbCrLf
  487.    strDisplay = strDisplay & "Second: '" & cGetInPart(Str1, Sep1, False) & "'" & vbCrLf & vbCrLf
  488.    Sep1 = "g"
  489.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  490.    strDisplay = strDisplay & "First: '" & cGetInPart(Str1, Sep1, True) & "'" & vbCrLf
  491.    strDisplay = strDisplay & "Second: '" & cGetInPart(Str1, Sep1, False) & "'"
  492.    txt_Result = strDisplay
  493.    'time the function
  494.    TimerStartOk = Timer
  495.    For i = 1 To Iteration
  496.       strResult = cGetInPart(Str1, Sep1, True)
  497.    Next i
  498.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  499. End Sub
  500. Private Sub TestGetInPartR()
  501.    Dim intResult        As Integer
  502.    Dim strResult        As String
  503.    Dim strDisplay       As String
  504.    Dim i                As Integer
  505.    Dim Str1             As String
  506.    Dim Sep1             As String
  507.    intResult = 0
  508.    strResult = ""
  509.    strDisplay = ""
  510.      
  511.    Str1 = Text1.Text
  512.    Sep1 = "/"
  513.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  514.    strDisplay = strDisplay & "First: '" & cGetInPartR(Str1, Sep1, True) & "'" & vbCrLf
  515.    strDisplay = strDisplay & "Second: '" & cGetInPartR(Str1, Sep1, False) & "'" & vbCrLf & vbCrLf
  516.    Sep1 = "G"
  517.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  518.    strDisplay = strDisplay & "First: '" & cGetInPartR(Str1, Sep1, True) & "'" & vbCrLf
  519.    strDisplay = strDisplay & "Second: '" & cGetInPartR(Str1, Sep1, False) & "'" & vbCrLf & vbCrLf
  520.    Sep1 = "g"
  521.    strDisplay = strDisplay & "The first and the second part from the left of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  522.    strDisplay = strDisplay & "First: '" & cGetInPartR(Str1, Sep1, True) & "'" & vbCrLf
  523.    strDisplay = strDisplay & "Second: '" & cGetInPartR(Str1, Sep1, False) & "'"
  524.    txt_Result = strDisplay
  525.    'time the function
  526.    TimerStartOk = Timer
  527.    For i = 1 To Iteration
  528.       strResult = cGetInPartR(Str1, Sep1, True)
  529.    Next i
  530.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  531. End Sub
  532. Private Sub TestGetBlock()
  533.    Dim intResult        As Integer
  534.    Dim strResult        As String
  535.    Dim strDisplay       As String
  536.    Dim i                As Integer
  537.    Dim Str1             As String
  538.    Dim BlockSize        As Integer
  539.    intResult = 0
  540.    strResult = ""
  541.    strDisplay = ""
  542.      
  543.    Str1 = Text1.Text
  544.    BlockSize = 2
  545.    strDisplay = strDisplay & "The 3,7,1,5,2,0 blocks of '" & Str1 & "' (block size '" & BlockSize & "') are " & vbCrLf & vbCrLf
  546.    strDisplay = strDisplay & "3: '" & cGetBlock(Str1, 3, BlockSize) & "'" & vbCrLf
  547.    strDisplay = strDisplay & "7: '" & cGetBlock(Str1, 7, BlockSize) & "'" & vbCrLf
  548.    strDisplay = strDisplay & "1: '" & cGetBlock(Str1, 1, BlockSize) & "'" & vbCrLf
  549.    strDisplay = strDisplay & "5: '" & cGetBlock(Str1, 5, BlockSize) & "'" & vbCrLf
  550.    strDisplay = strDisplay & "2: '" & cGetBlock(Str1, 2, BlockSize) & "'" & vbCrLf
  551.    strDisplay = strDisplay & "0: '" & cGetBlock(Str1, 0, BlockSize) & "'" & vbCrLf & vbCrLf
  552.    BlockSize = 3
  553.    strDisplay = strDisplay & "The 1,2 blocks of '" & Str1 & "' (block size '" & BlockSize & "') are " & vbCrLf & vbCrLf
  554.    strDisplay = strDisplay & "1: '" & cGetBlock(Str1, 1, BlockSize) & "'" & vbCrLf
  555.    strDisplay = strDisplay & "2: '" & cGetBlock(Str1, 2, BlockSize) & "'" & vbCrLf & vbCrLf
  556.    BlockSize = 4
  557.    strDisplay = strDisplay & "The 2,1 blocks of '" & Str1 & "' (block size '" & BlockSize & "') are " & vbCrLf & vbCrLf
  558.    strDisplay = strDisplay & "2: '" & cGetBlock(Str1, 2, BlockSize) & "'" & vbCrLf
  559.    strDisplay = strDisplay & "1: '" & cGetBlock(Str1, 1, BlockSize) & "'"
  560.    txt_Result = strDisplay
  561.    'time the function
  562.    TimerStartOk = Timer
  563.    For i = 1 To Iteration
  564.       strResult = cGetBlock(Str1, BlockSize, 3)
  565.    Next i
  566.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  567. End Sub
  568. Private Sub TestInsertChars()
  569.    Dim intResult        As Integer
  570.    Dim strResult        As String
  571.    Dim strDisplay       As String
  572.    Dim i                As Integer
  573.    Dim Str1             As String
  574.    intResult = 0
  575.    strResult = ""
  576.    strDisplay = ""
  577.      
  578.    Str1 = Text1.Text
  579.    strDisplay = strDisplay & "Insert 'a' from 7 char into '" & Str1 & "' is " & vbCrLf & vbCrLf
  580.    strDisplay = strDisplay & cInsertChars(Str1, 7, "a") & vbCrLf & vbCrLf
  581.    strDisplay = strDisplay & "Insert '10$' from 2 char into '" & Str1 & "' is " & vbCrLf & vbCrLf
  582.    strDisplay = strDisplay & cInsertChars(Str1, 2, "10$") & vbCrLf & vbCrLf
  583.    strDisplay = strDisplay & "Insert '@' from 21 char into '" & Str1 & "' is " & vbCrLf & vbCrLf
  584.    strDisplay = strDisplay & cInsertChars(Str1, 21, "@") & vbCrLf & vbCrLf
  585.    txt_Result = strDisplay
  586.    'time the function
  587.    TimerStartOk = Timer
  588.    For i = 1 To Iteration
  589.       strResult = cInsertChars(Str1, 1, "a")
  590.    Next i
  591.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  592. End Sub
  593. Private Sub TestInsertByMask()
  594.    Dim intResult        As Integer
  595.    Dim strResult        As String
  596.    Dim strDisplay       As String
  597.    Dim i                As Integer
  598.    Dim Str1             As String
  599.    Dim Str2             As String
  600.    Dim Mask1            As String
  601.    intResult = 0
  602.    strResult = ""
  603.    strDisplay = ""
  604.      
  605.    Str1 = "Nr ## Price $###.##"
  606.    Str2 = "0705200"
  607.    Mask1 = "#"
  608.    strDisplay = strDisplay & "Insert '" & Str2 & "' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  609.    strDisplay = strDisplay & cInsertByMask(Str1, Mask1, Str2) & vbCrLf & vbCrLf
  610.    Str1 = Text1.Text
  611.    Str2 = String(cCount(Str1, "/"), "*")
  612.    Mask1 = "/"
  613.    strDisplay = strDisplay & "Insert '" & Str2 & "' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  614.    strDisplay = strDisplay & cInsertByMask(Str1, Mask1, Str2) & vbCrLf & vbCrLf
  615.    txt_Result = strDisplay
  616.    'time the function
  617.    TimerStartOk = Timer
  618.    For i = 1 To Iteration
  619.       strResult = cInsertByMask(Str1, Mask1, Str2)
  620.    Next i
  621.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  622. End Sub
  623. Private Sub TestInsertBlocks()
  624.    Dim intResult        As Integer
  625.    Dim strResult        As String
  626.    Dim strDisplay       As String
  627.    Dim i                As Integer
  628.    Dim Str1             As String
  629.    Dim Str2             As String
  630.    intResult = 0
  631.    strResult = ""
  632.    strDisplay = ""
  633.      
  634.    Str1 = "A~BC~DEF~GHIJ~"
  635.    Str2 = "a~bc~def~ghij"
  636.    strDisplay = strDisplay + "Insert '" & Str2 & "' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  637.    strDisplay = strDisplay & cInsertBlocks(Str1, Str2) & vbCrLf & vbCrLf
  638.    Str1 = "A~BC~DEF~GHIJ~"
  639.    Str2 = ""
  640.    strDisplay = strDisplay + "Insert '' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  641.    strDisplay = strDisplay & cInsertBlocks(Str1, Str2) & vbCrLf & vbCrLf
  642.    txt_Result = strDisplay
  643.    'time the function
  644.    TimerStartOk = Timer
  645.    For i = 1 To Iteration
  646.       strResult = cInsertBlocks(Str1, Str2)
  647.    Next i
  648.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  649. End Sub
  650. Public Sub TestInsertBlocksBy()
  651.    Dim intResult        As Integer
  652.    Dim strResult        As String
  653.    Dim strDisplay       As String
  654.    Dim i                As Integer
  655.    Dim Str1             As String
  656.    Dim Str2             As String
  657.    Dim Sep1             As String
  658.    intResult = 0
  659.    strResult = ""
  660.    strDisplay = ""
  661.      
  662.    Str1 = Text1.Text
  663.    Str2 = "a/bc/def/ghij"
  664.    Sep1 = "/"
  665.    strDisplay = strDisplay + "Insert '" & Str2 & "' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  666.    strDisplay = strDisplay & cInsertBlocksBy(Str1, Str2, Sep1) & vbCrLf & vbCrLf
  667.    Str1 = Text1.Text
  668.    Str2 = ""
  669.    strDisplay = strDisplay + "Insert '' into '" & Str1 & "' is " & vbCrLf & vbCrLf
  670.    strDisplay = strDisplay & cInsertBlocksBy(Str1, Str2, Sep1) & vbCrLf & vbCrLf
  671.    txt_Result = strDisplay
  672.    'time the function
  673.    TimerStartOk = Timer
  674.    For i = 1 To Iteration
  675.       strResult = cInsertBlocksBy(Str1, Str2, Sep1)
  676.    Next i
  677.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  678. End Sub
  679. Private Sub TestRemoveOneChar()
  680.    Dim intResult        As Integer
  681.    Dim strResult        As String
  682.    Dim strDisplay       As String
  683.    Dim i                As Integer
  684.    Dim Str1             As String
  685.    intResult = 0
  686.    strResult = ""
  687.    strDisplay = ""
  688.      
  689.    Str1 = Text1.Text
  690.    strDisplay = strDisplay & "Removing the 7 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  691.    strDisplay = strDisplay & cRemoveOneChar(Str1, 7) & vbCrLf & vbCrLf
  692.    Str1 = Text1.Text
  693.    strDisplay = strDisplay & "Removing the 21 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  694.    strDisplay = strDisplay & cRemoveOneChar(Str1, 21) & vbCrLf & vbCrLf
  695.    Str1 = Text1.Text
  696.    strDisplay = strDisplay & "Removing the 14 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  697.    strDisplay = strDisplay & cRemoveOneChar(Str1, 14) & vbCrLf & vbCrLf
  698.    Str1 = Text1.Text
  699.    strDisplay = strDisplay & "Removing the 0 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  700.    strDisplay = strDisplay & cRemoveOneChar(Str1, 0) & vbCrLf & vbCrLf
  701.    Str1 = Text1.Text
  702.    strDisplay = strDisplay & "Removing the 1 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  703.    strDisplay = strDisplay & cRemoveOneChar(Str1, 1)
  704.    txt_Result = strDisplay
  705.    'time the function
  706.    Str1 = Text1.Text
  707.    TimerStartOk = Timer
  708.    For i = 1 To Iteration
  709.       strResult = cRemoveOneChar(Str1, 7)
  710.    Next i
  711.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  712. End Sub
  713. Public Sub TestRemoveBlockChar()
  714.    Dim intResult        As Integer
  715.    Dim strResult        As String
  716.    Dim strDisplay       As String
  717.    Dim i                As Integer
  718.    Dim Str1             As String
  719.    intResult = 0
  720.    strResult = ""
  721.    strDisplay = ""
  722.      
  723.    Str1 = Text1.Text
  724.    strDisplay = strDisplay & "Removing 3 chars from the 7 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  725.    strDisplay = strDisplay & cRemoveBlockChar(Str1, 7, 3) & vbCrLf & vbCrLf
  726.    Str1 = Text1.Text
  727.    strDisplay = strDisplay & "Removing 2 chars from the 21 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  728.    strDisplay = strDisplay & cRemoveBlockChar(Str1, 21, 2) & vbCrLf & vbCrLf
  729.    Str1 = Text1.Text
  730.    strDisplay = strDisplay & "Removing 7 chars from the 14 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  731.    strDisplay = strDisplay & cRemoveBlockChar(Str1, 14, 7) & vbCrLf & vbCrLf
  732.    Str1 = Text1.Text
  733.    strDisplay = strDisplay & "Removing 14 chars from the 0 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  734.    strDisplay = strDisplay & cRemoveBlockChar(Str1, 0, 14) & vbCrLf & vbCrLf
  735.    Str1 = Text1.Text
  736.    strDisplay = strDisplay & "Removing 50 chars from the 1 char of '" & Str1 & "' is " & vbCrLf & vbCrLf
  737.    strDisplay = strDisplay & cRemoveBlockChar(Str1, 1, 50)
  738.    txt_Result = strDisplay
  739.    'time the function
  740.    Str1 = Text1.Text
  741.    TimerStartOk = Timer
  742.    For i = 1 To Iteration
  743.       strResult = cRemoveBlockChar(Str1, 1, 1)
  744.    Next i
  745.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  746. End Sub
  747. Private Sub TestTokenIn()
  748.    Dim intResult        As Integer
  749.    Dim strResult        As String
  750.    Dim strDisplay       As String
  751.    Dim i                As Integer
  752.    Dim Str1             As String
  753.    Dim Sep1             As String
  754.    intResult = 0
  755.    strResult = ""
  756.    strDisplay = ""
  757.      
  758.    Str1 = Text1.Text
  759.    Sep1 = "/HM"
  760.    strDisplay = strDisplay & "The 3,7,1,5,2,0 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  761.    strDisplay = strDisplay & "3: '" & cTokenIn(Str1, Sep1, 3) & "'" & vbCrLf
  762.    strDisplay = strDisplay & "7: '" & cTokenIn(Str1, Sep1, 7) & "'" & vbCrLf
  763.    strDisplay = strDisplay & "1: '" & cTokenIn(Str1, Sep1, 1) & "'" & vbCrLf
  764.    strDisplay = strDisplay & "5: '" & cTokenIn(Str1, Sep1, 5) & "'" & vbCrLf
  765.    strDisplay = strDisplay & "2: '" & cTokenIn(Str1, Sep1, 2) & "'" & vbCrLf
  766.    strDisplay = strDisplay & "0: '" & cTokenIn(Str1, Sep1, 0) & "'" & vbCrLf & vbCrLf
  767.    Sep1 = "G"
  768.    strDisplay = strDisplay & "The 1,2 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  769.    strDisplay = strDisplay & "1: '" & cTokenIn(Str1, Sep1, 1) & "'" & vbCrLf
  770.    strDisplay = strDisplay & "2: '" & cTokenIn(Str1, Sep1, 2) & "'" & vbCrLf & vbCrLf
  771.    Sep1 = "g"
  772.    strDisplay = strDisplay & "The 2,1 blocks of '" & Str1 & "' (separator '" & Sep1 & "') are " & vbCrLf & vbCrLf
  773.    strDisplay = strDisplay & "2: '" & cTokenIn(Str1, Sep1, 2) & "'" & vbCrLf
  774.    strDisplay = strDisplay & "1: '" & cTokenIn(Str1, Sep1, 1) & "'"
  775.    txt_Result = strDisplay
  776.    'time the function
  777.    TimerStartOk = Timer
  778.    For i = 1 To Iteration
  779.       strResult = cTokenIn(Str1, Sep1, 3)
  780.    Next i
  781.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  782. End Sub
  783. Private Sub TestOrTokenX()
  784.    Dim intResult        As Integer
  785.    Dim strResult        As String
  786.    Dim strDisplay       As String
  787.    Dim i                As Integer
  788.    Dim Str1             As String
  789.    Dim Str2             As String
  790.    Dim Sep1             As String
  791.    intResult = 0
  792.    strResult = ""
  793.    strDisplay = ""
  794.    Sep1 = "\"
  795.      
  796.    Str1 = "FOX|OVER|THE"
  797.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  798.    strDisplay = strDisplay & "One of token '" & Str1 & "' (|) in '" & Str2 & "' is " & IIf(cOrToken(Str2, Str1), "present", "not present") & vbCrLf & vbCrLf
  799.    Str1 = "quick|jumps|the"
  800.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  801.    strDisplay = strDisplay & "One of token '" & Str1 & "' (|) in '" & Str2 & "' is " & IIf(cOrToken(Str2, Str1), "present", "not present") & vbCrLf & vbCrLf
  802.    Str1 = "FOX\OVER\THE"
  803.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  804.    strDisplay = strDisplay & "One of token '" & Str1 & "' (\) in '" & Str2 & "' is " & IIf(cOrTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  805.    Str1 = "quick\jumps\the"
  806.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  807.    strDisplay = strDisplay & "One of token '" & Str1 & "' (\) in '" & Str2 & "' is " & IIf(cOrTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  808.    Str1 = "FOX/OVER/THE"
  809.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  810.    strDisplay = strDisplay & "One of token '" & Str1 & "' (\) in '" & Str2 & "' is " & IIf(cOrTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  811.    Str1 = "quick\JUMPS\the"
  812.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  813.    strDisplay = strDisplay & "One of token '" & Str1 & "' (\) in '" & Str2 & "' is " & IIf(cOrTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  814.    Str1 = LCase$("quick\jumps\THE")
  815.    Str2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
  816.    strDisplay = strDisplay & "One of token '" & Str1 & "' (\) in '" & Str2 & "' is " & IIf(cOrTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  817.    txt_Result = strDisplay
  818.    'time the function
  819.    TimerStartOk = Timer
  820.    For i = 1 To Iteration
  821.       strResult = cOrTokenIn(Str2, Str1, Sep1)
  822.    Next i
  823.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  824. End Sub
  825. Private Sub TestAndTokenX()
  826.    Dim intResult        As Integer
  827.    Dim strResult        As String
  828.    Dim strDisplay       As String
  829.    Dim i                As Integer
  830.    Dim Str1             As String
  831.    Dim Str2             As String
  832.    Dim Sep1             As String
  833.    intResult = 0
  834.    strResult = ""
  835.    strDisplay = ""
  836.      
  837.    Sep1 = "\"
  838.      
  839.    Str1 = "FOX|OVER|THE"
  840.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  841.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (|) in '" & Str2 & "' are " & IIf(cAndToken(Str2, Str1), "present", "not present") & vbCrLf & vbCrLf
  842.    Str1 = "quick|jumps|the"
  843.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  844.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (|) in '" & Str2 & "' are " & IIf(cAndToken(Str2, Str1), "present", "not present") & vbCrLf & vbCrLf
  845.    Str1 = "FOX\OVER\THE"
  846.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  847.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (\) in '" & Str2 & "' are " & IIf(cAndTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  848.    Str1 = "quick\jumps\the"
  849.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  850.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (\) in '" & Str2 & "' are " & IIf(cAndTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  851.    Str1 = "FOX/OVER/THE"
  852.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  853.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (\) in '" & Str2 & "' are " & IIf(cAndTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  854.    Str1 = "quick\JUMPS\the"
  855.    Str2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
  856.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (\) in '" & Str2 & "' are " & IIf(cAndTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  857.    Str1 = LCase$("quick\jumps\THE")
  858.    Str2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
  859.    strDisplay = strDisplay & "All tokens '" & Str1 & "' (\) in '" & Str2 & "' are " & IIf(cAndTokenIn(Str2, Str1, Sep1), "present", "not present") & vbCrLf & vbCrLf
  860.    txt_Result = strDisplay
  861.    'time the function
  862.    TimerStartOk = Timer
  863.    For i = 1 To Iteration
  864.       strResult = cOrTokenIn(Str2, Str1, Sep1)
  865.    Next i
  866.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  867. End Sub
  868. Private Sub TestReverse()
  869.    Dim intResult        As Integer
  870.    Dim strResult        As String
  871.    Dim strDisplay       As String
  872.    Dim i                As Integer
  873.    Dim Str1             As String
  874.    Dim Str2             As String
  875.    intResult = 0
  876.    strResult = ""
  877.    strDisplay = ""
  878.      
  879.    Str1 = Text1.Text
  880.    Str2 = cReverse(Str1)
  881.    strDisplay = strDisplay & "Reverse of '" & Str1 & "' is " & vbCrLf & vbCrLf
  882.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  883.    strDisplay = strDisplay & "Reverse of '" & Str2 & "' is " & vbCrLf & vbCrLf
  884.    strDisplay = strDisplay & cReverse(Str2) & vbCrLf & vbCrLf
  885.    txt_Result = strDisplay
  886.    'time the function
  887.    TimerStartOk = Timer
  888.    For i = 1 To Iteration
  889.       strResult = cReverse(Str1)
  890.    Next i
  891.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  892. End Sub
  893. Private Sub TestMixChars()
  894.    Dim intResult        As Integer
  895.    Dim strResult        As String
  896.    Dim strDisplay       As String
  897.    Dim i                As Integer
  898.    Dim Str1             As String
  899.    Dim Str2             As String
  900.    intResult = 0
  901.    strResult = ""
  902.    strDisplay = ""
  903.      
  904.    Str1 = Text1.Text
  905.    Str2 = cMixChars(Str1)
  906.    strDisplay = strDisplay & "MixChars of '" & Str1 & "' is " & vbCrLf & vbCrLf
  907.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  908.    strDisplay = strDisplay & "MixChars of '" & Str2 & "' is " & vbCrLf & vbCrLf
  909.    strDisplay = strDisplay & cMixChars(Str2) & vbCrLf & vbCrLf
  910.    Str1 = "TIME TO WIN (32-Bit)"
  911.    Str2 = cMixChars(Str1)
  912.    strDisplay = strDisplay & "MixChars of '" & Str1 & "' is " & vbCrLf & vbCrLf
  913.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  914.    strDisplay = strDisplay & "MixChars of '" & Str2 & "' is " & vbCrLf & vbCrLf
  915.    strDisplay = strDisplay & cMixChars(Str2) & vbCrLf & vbCrLf
  916.    Str1 = "Under the sky, the sun lights"
  917.    Str2 = cMixChars(Str1)
  918.    strDisplay = strDisplay & "MixChars of '" & Str1 & "' is " & vbCrLf & vbCrLf
  919.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  920.    strDisplay = strDisplay & "MixChars of '" & Str2 & "' is " & vbCrLf & vbCrLf
  921.    strDisplay = strDisplay & cMixChars(Str2)
  922.    txt_Result = strDisplay
  923.    'time the function
  924.    TimerStartOk = Timer
  925.    For i = 1 To Iteration
  926.       strResult = cMixChars(Str1)
  927.    Next i
  928.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  929. End Sub
  930. Private Sub TestScrollX()
  931.    Dim intResult        As Integer
  932.    Dim strResult        As String
  933.    Dim strDisplay       As String
  934.    Dim i                As Integer
  935.    Dim Str1             As String
  936.    Dim Str2             As String
  937.    intResult = 0
  938.    strResult = ""
  939.    strDisplay = ""
  940.      
  941.    Str1 = Text1.Text
  942.    Str2 = Text1.Text
  943.    strDisplay = strDisplay & "Scroll 7 times from left into '" & Str1 & "' is " & vbCrLf & vbCrLf
  944.    For i = 1 To 7
  945.       Str2 = cScrollL(Str2)
  946.       strDisplay = strDisplay & Str2 & vbCrLf
  947.    Next i
  948.    strDisplay = strDisplay & vbCrLf
  949.    Str1 = Text1.Text
  950.    Str2 = Text1.Text
  951.    strDisplay = strDisplay & "Scroll 7 times from right into '" & Str1 & "' is " & vbCrLf & vbCrLf
  952.    For i = 1 To 7
  953.       Str2 = cScrollR(Str2)
  954.       strDisplay = strDisplay & Str2 & vbCrLf
  955.    Next i
  956.    strDisplay = strDisplay & vbCrLf
  957.    txt_Result = strDisplay
  958.    'time the function
  959.    TimerStartOk = Timer
  960.    For i = 1 To Iteration
  961.       strResult = cScrollL(Str1)
  962.    Next i
  963.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  964. End Sub
  965. Private Sub TestChangeChars()
  966.    Dim intResult        As Integer
  967.    Dim strResult        As String
  968.    Dim strDisplay       As String
  969.    Dim i                As Integer
  970.    Dim Str1             As String
  971.    intResult = 0
  972.    strResult = ""
  973.    strDisplay = ""
  974.      
  975.    Str1 = Text1.Text
  976.    strDisplay = strDisplay & "Change 'AZM' into 'qyc' of '" & Str1 & "' is " & vbCrLf & vbCrLf
  977.    Call cChangeChars(Str1, "AZM", "qyc")
  978.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  979.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  980.    strDisplay = strDisplay & "Change 'AZM' into 'qyc' of '" & Str1 & "' is " & vbCrLf & vbCrLf
  981.    Call cChangeChars(Str1, "AZM", "qyc")
  982.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  983.    strDisplay = strDisplay & "Change 'qyc' into '+-*' of '" & Str1 & "' is " & vbCrLf & vbCrLf
  984.    Call cChangeChars(Str1, "qyc", "+-*")
  985.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  986.    txt_Result = strDisplay
  987.    'time the function
  988.    Str1 = Text1.Text
  989.    TimerStartOk = Timer
  990.    For i = 1 To Iteration
  991.       Call cChangeChars(Str1, "AZM", "qyc")
  992.    Next i
  993.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  994. End Sub
  995. Private Sub TestChangeCharsUntil()
  996.    Dim intResult        As Integer
  997.    Dim strResult        As String
  998.    Dim strDisplay       As String
  999.    Dim i                As Integer
  1000.    Dim Str1             As String
  1001.    intResult = 0
  1002.    strResult = ""
  1003.    strDisplay = ""
  1004.      
  1005.    Str1 = Text1.Text
  1006.    strDisplay = strDisplay & "Change 'AZM' into 'qyc' of '" & Str1 & "' until 'N' is " & vbCrLf & vbCrLf
  1007.    Call cChangeCharsUntil(Str1, "AZM", "qyc", "N")
  1008.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  1009.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1010.    strDisplay = strDisplay & "Change 'AZM' into 'qyc' of '" & Str1 & "' until 'N' is " & vbCrLf & vbCrLf
  1011.    Call cChangeCharsUntil(Str1, "AZM", "qyc", "N")
  1012.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  1013.    strDisplay = strDisplay & "Change 'qyc' into '+-*' of '" & Str1 & "' until 'N' is " & vbCrLf & vbCrLf
  1014.    Call cChangeCharsUntil(Str1, "qyc", "+-*", "N")
  1015.    strDisplay = strDisplay & Str1 & vbCrLf & vbCrLf
  1016.    txt_Result = strDisplay
  1017.    'time the function
  1018.    Str1 = Text1.Text
  1019.    TimerStartOk = Timer
  1020.    For i = 1 To Iteration
  1021.       Call cChangeCharsUntil(Str1, "AZM", "qyc", "N")
  1022.    Next i
  1023.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1024. End Sub
  1025. Private Sub TestCheckChars()
  1026.    Dim intResult        As Integer
  1027.    Dim strResult        As String
  1028.    Dim strDisplay       As String
  1029.    Dim i                As Integer
  1030.    Dim Str1             As String
  1031.    intResult = 0
  1032.    strResult = ""
  1033.    strDisplay = ""
  1034.      
  1035.    Str1 = Text1.Text
  1036.    strDisplay = strDisplay & "Check 'A','Z' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1037.    strDisplay = strDisplay & IIf(cCheckChars(Str1, "AZ"), "all present", "not all present") & vbCrLf & vbCrLf
  1038.    strDisplay = strDisplay & "Check 'a','Z' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1039.    strDisplay = strDisplay & IIf(cCheckChars(Str1, "aZ"), "all present", "not all present") & vbCrLf & vbCrLf
  1040.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1041.    strDisplay = strDisplay & "Check 'A','Z' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1042.    strDisplay = strDisplay & IIf(cCheckChars(Str1, "AZ"), "all present", "not all present") & vbCrLf & vbCrLf
  1043.    strDisplay = strDisplay & "Check 'a','Z' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1044.    strDisplay = strDisplay & IIf(cCheckChars(Str1, "aZ"), "all present", "not all present")
  1045.    txt_Result = strDisplay
  1046.    'time the function
  1047.    Str1 = Text1.Text
  1048.    TimerStartOk = Timer
  1049.    For i = 1 To Iteration
  1050.       intResult = cCheckChars(Str1, "aZ")
  1051.    Next i
  1052.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1053. End Sub
  1054. Private Sub TestFilterChars()
  1055.    Dim intResult        As Integer
  1056.    Dim strResult        As String
  1057.    Dim strDisplay       As String
  1058.    Dim i                As Integer
  1059.    Dim Str1             As String
  1060.    intResult = 0
  1061.    strResult = ""
  1062.    strDisplay = ""
  1063.      
  1064.    Str1 = Text1.Text
  1065.    strDisplay = strDisplay & "Filter 'B','/' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1066.    strDisplay = strDisplay & cFilterChars(Str1, "B/") & vbCrLf & vbCrLf
  1067.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1068.    strDisplay = strDisplay & "Filter 'B','Y' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1069.    strDisplay = strDisplay & cFilterChars(Str1, "BY")
  1070.    txt_Result = strDisplay
  1071.    'time the function
  1072.    Str1 = Text1.Text
  1073.    TimerStartOk = Timer
  1074.    For i = 1 To Iteration
  1075.       strResult = cFilterChars(Str1, "B/")
  1076.    Next i
  1077.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1078. End Sub
  1079. Private Sub TestFilterNotChars()
  1080.    Dim intResult        As Integer
  1081.    Dim strResult        As String
  1082.    Dim strDisplay       As String
  1083.    Dim i                As Integer
  1084.    Dim Str1             As String
  1085.    intResult = 0
  1086.    strResult = ""
  1087.    strDisplay = ""
  1088.      
  1089.    Str1 = Text1.Text
  1090.    strDisplay = strDisplay & "Filter not 'B','/' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1091.    strDisplay = strDisplay & cFilterNotChars(Str1, "B/") & vbCrLf & vbCrLf
  1092.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1093.    strDisplay = strDisplay & "Filter not 'B','Y' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1094.    strDisplay = strDisplay & cFilterNotChars(Str1, "BY")
  1095.    txt_Result = strDisplay
  1096.    'time the function
  1097.    Str1 = Text1.Text
  1098.    TimerStartOk = Timer
  1099.    For i = 1 To Iteration
  1100.       strResult = cFilterNotChars(Str1, "B/")
  1101.    Next i
  1102.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1103. End Sub
  1104. Private Sub TestFilterBlocks()
  1105.    Dim intResult        As Integer
  1106.    Dim strResult        As String
  1107.    Dim strDisplay       As String
  1108.    Dim i                As Integer
  1109.    Dim Str1             As String
  1110.    intResult = 0
  1111.    strResult = ""
  1112.    strDisplay = ""
  1113.      
  1114.    Str1 = Text1.Text
  1115.    strDisplay = strDisplay & "Filter blocks between '/' and '/' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1116.    strDisplay = strDisplay & "'" & cFilterBlocks(Str1, "//") & "'" & vbCrLf & vbCrLf
  1117.    strDisplay = strDisplay & "Filter blocks between 'B' and 'I' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1118.    strDisplay = strDisplay & "'" & cFilterBlocks(Str1, "BI") & "'" & vbCrLf & vbCrLf
  1119.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1120.    strDisplay = strDisplay & "Filter blocks between '/' and '/' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1121.    strDisplay = strDisplay & "'" & cFilterBlocks(Str1, "//") & "'" & vbCrLf & vbCrLf
  1122.    strDisplay = strDisplay & "Filter blocks between 'B' and 'I' in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1123.    strDisplay = strDisplay & "'" & cFilterBlocks(Str1, "BI") & "'"
  1124.    txt_Result = strDisplay
  1125.    'time the function
  1126.    Str1 = Text1.Text
  1127.    TimerStartOk = Timer
  1128.    For i = 1 To Iteration
  1129.       strResult = cFilterBlocks(Str1, "BI")
  1130.    Next i
  1131.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1132. End Sub
  1133. Private Sub TestResizeString()
  1134.    Dim intResult        As Integer
  1135.    Dim strResult        As String
  1136.    Dim strDisplay       As String
  1137.    Dim i                As Integer
  1138.    Dim Str1             As String
  1139.    intResult = 0
  1140.    strResult = ""
  1141.    strDisplay = ""
  1142.      
  1143.    Str1 = Text1.Text
  1144.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 5 chars is " & vbCrLf & vbCrLf
  1145.    strDisplay = strDisplay & "'" & cResizeString(Str1, 5) & "'" & vbCrLf & vbCrLf
  1146.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 10 chars is " & vbCrLf & vbCrLf
  1147.    strDisplay = strDisplay & "'" & cResizeString(Str1, 10) & "'" & vbCrLf & vbCrLf
  1148.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 50 chars is " & vbCrLf & vbCrLf
  1149.    strDisplay = strDisplay & "'" & cResizeString(Str1, 50) & "'" & vbCrLf & vbCrLf
  1150.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to -1 chars is " & vbCrLf & vbCrLf
  1151.    strDisplay = strDisplay & "'" & cResizeString(Str1, -1) & "'" & vbCrLf & vbCrLf
  1152.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1153.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 5 chars is " & vbCrLf & vbCrLf
  1154.    strDisplay = strDisplay & "'" & cResizeString(Str1, 5) & "'" & vbCrLf & vbCrLf
  1155.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 10 chars is " & vbCrLf & vbCrLf
  1156.    strDisplay = strDisplay & "'" & cResizeString(Str1, 10) & "'" & vbCrLf & vbCrLf
  1157.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 50 chars is " & vbCrLf & vbCrLf
  1158.    strDisplay = strDisplay & "'" & cResizeString(Str1, 50) & "'" & vbCrLf & vbCrLf
  1159.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to -1 chars is " & vbCrLf & vbCrLf
  1160.    strDisplay = strDisplay & "'" & cResizeString(Str1, -1) & "'"
  1161.    txt_Result = strDisplay
  1162.    'time the function
  1163.    Str1 = Text1.Text
  1164.    TimerStartOk = Timer
  1165.    For i = 1 To Iteration
  1166.       strResult = cResizeString(Str1, 5)
  1167.    Next i
  1168.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1169. End Sub
  1170. Private Sub TestResizeStringAndFill()
  1171.    Dim intResult        As Integer
  1172.    Dim strResult        As String
  1173.    Dim strDisplay       As String
  1174.    Dim i                As Integer
  1175.    Dim Str1             As String
  1176.    intResult = 0
  1177.    strResult = ""
  1178.    strDisplay = ""
  1179.      
  1180.    Str1 = Text1.Text
  1181.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 5 chars is " & vbCrLf & vbCrLf
  1182.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 5, "*") & "'" & vbCrLf & vbCrLf
  1183.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 10 chars is " & vbCrLf & vbCrLf
  1184.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 10, "*") & "'" & vbCrLf & vbCrLf
  1185.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 50 chars is " & vbCrLf & vbCrLf
  1186.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 50, "*") & "'" & vbCrLf & vbCrLf
  1187.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to -1 chars is " & vbCrLf & vbCrLf
  1188.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, -1, "*") & "'" & vbCrLf & vbCrLf
  1189.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1190.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 5 chars is " & vbCrLf & vbCrLf
  1191.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 5, "*") & "'" & vbCrLf & vbCrLf
  1192.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 10 chars is " & vbCrLf & vbCrLf
  1193.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 10, "*") & "'" & vbCrLf & vbCrLf
  1194.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to 50 chars is " & vbCrLf & vbCrLf
  1195.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, 50, "*") & "'" & vbCrLf & vbCrLf
  1196.    strDisplay = strDisplay & "'" & Str1 & "' resized from " & Len(Str1) & " to -1 chars is " & vbCrLf & vbCrLf
  1197.    strDisplay = strDisplay & "'" & cResizeStringAndFill(Str1, -1, "*") & "'"
  1198.    txt_Result = strDisplay
  1199.    'time the function
  1200.    Str1 = Text1.Text
  1201.    TimerStartOk = Timer
  1202.    For i = 1 To Iteration
  1203.       strResult = cResizeStringAndFill(Str1, 50, "*")
  1204.    Next i
  1205.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1206. End Sub
  1207. Private Sub TestCreateAndFill()
  1208.    Dim intResult        As Integer
  1209.    Dim strResult        As String
  1210.    Dim strDisplay       As String
  1211.    Dim i                As Integer
  1212.    Dim Str1             As String
  1213.    intResult = 0
  1214.    strResult = ""
  1215.    strDisplay = ""
  1216.      
  1217.    Str1 = Text1.Text
  1218.    strDisplay = strDisplay & "Create and Fill a string of 60 chars with '" & Str1 & "' is " & vbCrLf & vbCrLf
  1219.    strDisplay = strDisplay & "'" & cCreateAndFill(60, Str1) & "'" & vbCrLf & vbCrLf
  1220.    strDisplay = strDisplay & "Create and Fill a string of 40 chars with '" & Str1 & "' is " & vbCrLf & vbCrLf
  1221.    strDisplay = strDisplay & "'" & cCreateAndFill(40, Str1) & "'" & vbCrLf & vbCrLf
  1222.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1223.    strDisplay = strDisplay & "Create and Fill a string of 60 chars with '" & Str1 & "' is " & vbCrLf & vbCrLf
  1224.    strDisplay = strDisplay & "'" & cCreateAndFill(60, Str1) & "'" & vbCrLf & vbCrLf
  1225.    strDisplay = strDisplay & "Create and Fill a string of 40 chars with '" & Str1 & "' is " & vbCrLf & vbCrLf
  1226.    strDisplay = strDisplay & "'" & cCreateAndFill(40, Str1) & "'"
  1227.    txt_Result = strDisplay
  1228.    'time the function
  1229.    Str1 = Text1.Text
  1230.    TimerStartOk = Timer
  1231.    For i = 1 To Iteration
  1232.       strResult = cCreateAndFill(40, Str1)
  1233.    Next i
  1234.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1235. End Sub
  1236. Private Sub TestFill()
  1237.    Dim intResult        As Integer
  1238.    Dim strResult        As String
  1239.    Dim strDisplay       As String
  1240.    Dim i                As Integer
  1241.    Dim Str1             As String
  1242.    intResult = 0
  1243.    strResult = ""
  1244.    strDisplay = ""
  1245.      
  1246.    Str1 = Text1.Text
  1247.    strDisplay = strDisplay & "Fill of '" & Str1 & "' with '*=' is " & vbCrLf & vbCrLf
  1248.    Call cFill(Str1, "*=")
  1249.    strDisplay = strDisplay & "'" & Str1 & "'" & vbCrLf & vbCrLf
  1250.    strDisplay = strDisplay & "Fill of '" & Str1 & "' with '=*=' is " & vbCrLf & vbCrLf
  1251.    Call cFill(Str1, "=*=")
  1252.    strDisplay = strDisplay & "'" & Str1 & "'" & vbCrLf & vbCrLf
  1253.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1254.    strDisplay = strDisplay & "Fill of '" & Str1 & "' with '7516' is " & vbCrLf & vbCrLf
  1255.    Call cFill(Str1, "7516")
  1256.    strDisplay = strDisplay & "'" & Str1 & "'" & vbCrLf & vbCrLf
  1257.    strDisplay = strDisplay & "Fill of '" & Str1 & "' with '$61.00' is " & vbCrLf & vbCrLf
  1258.    Call cFill(Str1, "$61.00")
  1259.    strDisplay = strDisplay & "'" & Str1 & "'"
  1260.    txt_Result = strDisplay
  1261.    'time the function
  1262.    Str1 = Text1.Text
  1263.    TimerStartOk = Timer
  1264.    For i = 1 To Iteration
  1265.       Call cFill(Str1, "*=")
  1266.    Next i
  1267.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1268. End Sub
  1269. Private Sub TestLrc()
  1270.    Dim intResult        As Integer
  1271.    Dim strResult        As String
  1272.    Dim strDisplay       As String
  1273.    Dim i                As Integer
  1274.    Dim Str1             As String
  1275.    intResult = 0
  1276.    strResult = ""
  1277.    strDisplay = ""
  1278.      
  1279.    Str1 = Text1.Text
  1280.    strDisplay = strDisplay & "Lrc for '" & Str1 & "' is '" & cLrc(Str1) & "'" & vbCrLf & vbCrLf
  1281.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1282.    strDisplay = strDisplay & "Lrc for '" & Str1 & "' is '" & cLrc(Str1) & "'" & vbCrLf & vbCrLf
  1283.    Str1 = Chr$(2) & "0a12721536"
  1284.    strDisplay = strDisplay & "Lrc for '" & Str1 & "' is '" & cLrc(Str1) & "'"
  1285.    txt_Result = strDisplay
  1286.    'time the function
  1287.    Str1 = Text1.Text
  1288.    TimerStartOk = Timer
  1289.    For i = 1 To Iteration
  1290.       strResult = cLrc(Str1)
  1291.    Next i
  1292.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1293. End Sub
  1294. Private Sub TestCompress()
  1295.    Dim intResult        As Integer
  1296.    Dim strResult        As String
  1297.    Dim strDisplay       As String
  1298.    Dim i                As Integer
  1299.    Dim Str1             As String
  1300.    intResult = 0
  1301.    strResult = ""
  1302.    strDisplay = ""
  1303.      
  1304.    Str1 = Text1.Text
  1305.    strDisplay = strDisplay & "Filter chr(0),chr(9),chr(32) in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1306.    strDisplay = strDisplay & "'" & cCompress(Str1) & "'" & vbCrLf & vbCrLf
  1307.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1308.    strDisplay = strDisplay & "Filter chr(0),chr(9),chr(32) in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1309.    strDisplay = strDisplay & "'" & cCompress(Str1) & "'" & vbCrLf & vbCrLf
  1310.    Str1 = "A " & Chr$(9) & "BC  "
  1311.    strDisplay = strDisplay & "Filter chr(0),chr(9),chr(32) in '" & Str1 & "' is " & vbCrLf & vbCrLf
  1312.    strDisplay = strDisplay & "'" & cCompress(Str1) & "'" & vbCrLf & vbCrLf
  1313.    txt_Result = strDisplay
  1314.    'time the function
  1315.    Str1 = Text1.Text
  1316.    TimerStartOk = Timer
  1317.    For i = 1 To Iteration
  1318.       strResult = cCompress(Str1)
  1319.    Next i
  1320.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1321. End Sub
  1322. Public Sub TestCompressTab()
  1323.    Dim intResult        As Integer
  1324.    Dim strResult        As String
  1325.    Dim strDisplay       As String
  1326.    Dim i                As Integer
  1327.    Dim Str1             As String
  1328.    Dim Str2             As String
  1329.    Dim Str3             As String
  1330.    intResult = 0
  1331.    strResult = ""
  1332.    strDisplay = ""
  1333.      
  1334.    Str1 = "A      BC   DEF  GHIJ  "
  1335.    For i = 1 To 6
  1336.       Str2 = cCompressTab(Str1, i)
  1337.       Str3 = Str2
  1338.       Call cChangeChars(Str3, vbTab, "
  1339.       strDisplay = strDisplay & "Compress tab (" & i & " chars) into '" & Str1 & "' is '" & Str3 & "'" & vbCrLf
  1340.       strDisplay = strDisplay & "Expand tab (" & i & " chars) into '" & Str3 & "' is '" & cExpandTab(Str2, i) & "'" & vbCrLf & vbCrLf
  1341.    Next i
  1342.    txt_Result = strDisplay
  1343.    'time the function
  1344.    Str1 = Text1.Text
  1345.    TimerStartOk = Timer
  1346.    For i = 1 To Iteration
  1347.       strResult = cCompressTab(Str1, 3)
  1348.    Next i
  1349.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1350. End Sub
  1351. Private Sub TestCompact()
  1352.    Dim intResult        As Integer
  1353.    Dim strResult        As String
  1354.    Dim strDisplay       As String
  1355.    Dim i                As Integer
  1356.    Dim Str1             As String
  1357.    Dim Str2             As String
  1358.    intResult = 0
  1359.    strResult = ""
  1360.    strDisplay = ""
  1361.      
  1362.    Str1 = "987654321"
  1363.    Str2 = cCompact(Str1)
  1364.    strDisplay = strDisplay & "Compact '" & Str1 & "' is '" & Str2 & "'" & vbCrLf & vbCrLf
  1365.    strDisplay = strDisplay & "Uncompact '" & Str2 & "' is '" & cUncompact(Str2) & "'" & vbCrLf & vbCrLf
  1366.    Str1 = "1234567890"
  1367.    Str2 = cCompact(Str1)
  1368.    strDisplay = strDisplay & "Compact '" & Str1 & "' is '" & Str2 & "'" & vbCrLf & vbCrLf
  1369.    strDisplay = strDisplay & "Uncompact '" & Str2 & "' is '" & cUncompact(Str2) & "'" & vbCrLf & vbCrLf
  1370.    Str1 = Text1.Text
  1371.    Str2 = cCompact(Str1)
  1372.    strDisplay = strDisplay & "Compact '" & Str1 & "' is '" & Str2 & "'" & vbCrLf & vbCrLf
  1373.    strDisplay = strDisplay & "Uncompact '" & Str2 & "' is '" & cUncompact(Str2) & "'" & vbCrLf & vbCrLf
  1374.    txt_Result = strDisplay
  1375.    'time the function
  1376.    Str1 = Text1.Text
  1377.    TimerStartOk = Timer
  1378.    For i = 1 To Iteration
  1379.       strResult = cCompact(Str1)
  1380.    Next i
  1381.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1382. End Sub
  1383. Private Sub TestAlign()
  1384.    Dim intResult        As Integer
  1385.    Dim strResult        As String
  1386.    Dim strDisplay       As String
  1387.    Dim i                As Integer
  1388.    Dim Str1             As String
  1389.    Dim Str2             As String
  1390.    intResult = 0
  1391.    strResult = ""
  1392.    strDisplay = ""
  1393.      
  1394.    Str1 = "T2WIN-32"
  1395.    strDisplay = strDisplay & "Left Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1396.    strDisplay = strDisplay & "'" & cAlign(Str1, -1, 30) & "'" & vbCrLf & vbCrLf
  1397.    strDisplay = strDisplay & "Center Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1398.    strDisplay = strDisplay & "'" & cAlign(Str1, 0, 30) & "'" & vbCrLf & vbCrLf
  1399.    strDisplay = strDisplay & "Right Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1400.    strDisplay = strDisplay & "'" & cAlign(Str1, 1, 30) & "'" & vbCrLf & vbCrLf
  1401.    Str1 = Text1.Text
  1402.    strDisplay = strDisplay & "Left Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1403.    strDisplay = strDisplay & "'" & cAlign(Str1, -1, 50) & "'" & vbCrLf & vbCrLf
  1404.    strDisplay = strDisplay & "Center Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1405.    strDisplay = strDisplay & "'" & cAlign(Str1, 0, 50) & "'" & vbCrLf & vbCrLf
  1406.    strDisplay = strDisplay & "Right Align of '" & Str1 & "' is " & vbCrLf & vbCrLf
  1407.    strDisplay = strDisplay & "'" & cAlign(Str1, 1, 50) & "'"
  1408.    txt_Result = strDisplay
  1409.    'time the function
  1410.    Str1 = Text1.Text
  1411.    TimerStartOk = Timer
  1412.    For i = 1 To Iteration
  1413.       strResult = cAlign(Str1, 1, 30)
  1414.    Next i
  1415.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1416. End Sub
  1417. Private Sub TestProperName()
  1418.    Dim intResult        As Integer
  1419.    Dim strResult        As String
  1420.    Dim strDisplay       As String
  1421.    Dim i                As Integer
  1422.    Dim Str1             As String
  1423.    Dim Str2             As String
  1424.    intResult = 0
  1425.    strResult = ""
  1426.    strDisplay = ""
  1427.      
  1428.    Str1 = Text1.Text
  1429.    strDisplay = strDisplay + "ProperName of '" & Str1 & "' is " & cProperName(Str1) & vbCrLf & vbCrLf
  1430.    Str1 = "John fitz,jr"
  1431.    strDisplay = strDisplay + "ProperName of '" & Str1 & "' is " & cProperName(Str1) & vbCrLf & vbCrLf
  1432.    Str1 = "john Fitz, jr"
  1433.    strDisplay = strDisplay + "ProperName of '" & Str1 & "' is " & cProperName(Str1) & vbCrLf & vbCrLf
  1434.    Str1 = "macdonald"
  1435.    strDisplay = strDisplay + "ProperName of '" & Str1 & "' is " & cProperName(Str1) & vbCrLf & vbCrLf
  1436.    Str1 = "mac donald"
  1437.    strDisplay = strDisplay + "ProperName of '" & Str1 & "' is " & cProperName(Str1)
  1438.                   
  1439.    txt_Result = strDisplay
  1440.    'time the function
  1441.    Str1 = Text1.Text
  1442.    TimerStartOk = Timer
  1443.    For i = 1 To Iteration
  1444.       strResult = cProperName(Str1)
  1445.    Next i
  1446.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1447. End Sub
  1448. Private Sub TestProperName2()
  1449.    Dim intResult        As Integer
  1450.    Dim strResult        As String
  1451.    Dim strDisplay       As String
  1452.    Dim i                As Integer
  1453.    Dim Str1             As String
  1454.    Dim Str2             As String
  1455.    intResult = 0
  1456.    strResult = ""
  1457.    strDisplay = ""
  1458.      
  1459.    Str1 = Text1.Text
  1460.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", 0) & "'" & vbCrLf & vbCrLf
  1461.    Str1 = "JOHN FITZ,JR"
  1462.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", PN_UPPERCASE Or PN_PUNCTUATION) & "'" & vbCrLf & vbCrLf
  1463.    Str1 = "john Fitz,jr"
  1464.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", PN_PUNCTUATION) & "'" & vbCrLf & vbCrLf
  1465.    Str1 = "macdonald"
  1466.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", 0) & "'" & vbCrLf & vbCrLf
  1467.    Str1 = "mac donald"
  1468.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", 0) & "'" & vbCrLf & vbCrLf
  1469.    Str1 = "a.l. greene jr."
  1470.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "", PN_PUNCTUATION) & "'" & vbCrLf & vbCrLf
  1471.    Str1 = "shale and sandstone and till"
  1472.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "the/of/a/an/and", PN_PUNCTUATION) & "'" & vbCrLf & vbCrLf
  1473.    Str1 = "a sandstone or a shale"
  1474.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "the/or/of/a/an/and", PN_PUNCTUATION) & "'" & vbCrLf & vbCrLf
  1475.    Str1 = "RR2 BARRHEAD"
  1476.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "rr2", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL) & "'" & vbCrLf & vbCrLf
  1477.    Str1 = "ANDY MACDONALD"
  1478.    strDisplay = strDisplay + "ProperName2 of '" & Str1 & "' is '" & cProperName2(Str1, "mac", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL Or PN_ONLY_LEADER_SPACE) & "'"
  1479.                   
  1480.    txt_Result = strDisplay
  1481.    'time the function
  1482.    Str1 = Text1.Text
  1483.    TimerStartOk = Timer
  1484.    For i = 1 To Iteration
  1485.       strResult = cProperName2(Str1, "", 0)
  1486.    Next i
  1487.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1488. End Sub
  1489. Private Sub TestStringSAR()
  1490.    Dim intResult        As Integer
  1491.    Dim strResult        As String
  1492.    Dim strDisplay       As String
  1493.    Dim i                As Integer
  1494.    Dim Str1             As String
  1495.    Dim Str2             As String
  1496.    intResult = 0
  1497.    strResult = ""
  1498.    strDisplay = ""
  1499.      
  1500.    Str1 = "T2WIN-32, T2WIN-32, T2WIN-32, T2WIN-32 IS A DLL"
  1501.    Str2 = cStringSAR(Str1, "T2WIN-32", "t2win-32", False)
  1502.    strDisplay = strDisplay & "Replace 'T2WIN-32' by 't2win-32'" & vbCrLf
  1503.    strDisplay = strDisplay & "     in" & vbCrLf
  1504.    strDisplay = strDisplay & Str1 & vbCrLf
  1505.    strDisplay = strDisplay & "     is" & vbCrLf
  1506.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  1507.    Str2 = cStringSAR(Str1, "2W", "IME TO W", True)
  1508.    strDisplay = strDisplay & "Replace '2W' by 'IME TO W'" & vbCrLf
  1509.    strDisplay = strDisplay & "     in" & vbCrLf
  1510.    strDisplay = strDisplay & Str1 & vbCrLf
  1511.    strDisplay = strDisplay & "     is" & vbCrLf
  1512.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  1513.    Str2 = cStringSAR(Str1, "T2WIN-32", "", True)
  1514.    strDisplay = strDisplay & "Replace 'T2WIN-32, ' by ''" & vbCrLf
  1515.    strDisplay = strDisplay & "     in" & vbCrLf
  1516.    strDisplay = strDisplay & Str1 & vbCrLf
  1517.    strDisplay = strDisplay & "     is" & vbCrLf
  1518.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  1519.    Str2 = cStringSAR(Str1, "I", "i", False)
  1520.    strDisplay = strDisplay & "Replace 'I' by 'i'" & vbCrLf
  1521.    strDisplay = strDisplay & "     in" & vbCrLf
  1522.    strDisplay = strDisplay & Str1 & vbCrLf
  1523.    strDisplay = strDisplay & "     is" & vbCrLf
  1524.    strDisplay = strDisplay & Str2 & vbCrLf & vbCrLf
  1525.    txt_Result = strDisplay
  1526.    'time the function
  1527.    Str1 = Text1.Text
  1528.    TimerStartOk = Timer
  1529.    For i = 1 To Iteration
  1530.       strResult = cStringSAR(Str1, "T2WIN-32", "t2win-32", False)
  1531.    Next i
  1532.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1533. End Sub
  1534. Private Sub TestToHexa()
  1535.    Dim intResult        As Integer
  1536.    Dim strResult        As String
  1537.    Dim strDisplay       As String
  1538.    Dim i                As Integer
  1539.    Dim Str1             As String
  1540.    Dim Str2             As String
  1541.    intResult = 0
  1542.    strResult = ""
  1543.    strDisplay = ""
  1544.    Str1 = Text1.Text
  1545.    Str2 = cToHexa(Str1)
  1546.    strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1547.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1548.    strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1549.    strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'" & vbCrLf & vbCrLf
  1550.    Str1 = "ABCDEFGH"
  1551.    Str2 = cToHexa(Str1)
  1552.    strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1553.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1554.    strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1555.    strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'" & vbCrLf & vbCrLf
  1556.    Str1 = "01234567890"
  1557.    Str2 = cToHexa(Str1)
  1558.    strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1559.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1560.    strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1561.    strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'"
  1562.    txt_Result = strDisplay
  1563.    'time the function
  1564.    Str1 = Text1.Text
  1565.    TimerStartOk = Timer
  1566.    For i = 1 To Iteration
  1567.       strResult = cToHexa(Str1)
  1568.    Next i
  1569.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1570. End Sub
  1571. Private Sub TestRomanArabic()
  1572.    Dim intResult        As Integer
  1573.    Dim strResult        As String
  1574.    Dim strDisplay       As String
  1575.    Dim i                As Integer
  1576.    Dim Str1             As String
  1577.    Dim Value            As Integer
  1578.    intResult = 0
  1579.    strResult = ""
  1580.    strDisplay = ""
  1581.    Str1 = UCase$(cArabicToRoman(Year(Int(Now))))
  1582.    strDisplay = strDisplay & Str1 & " in Arabic is " & cRomanToArabic(LCase$(Str1)) & vbCrLf & vbCrLf
  1583.    Str1 = UCase$(cArabicToRoman(Year(Int(Now)) - 1))
  1584.    strDisplay = strDisplay & Str1 & " in Arabic is " & cRomanToArabic(LCase$(Str1)) & vbCrLf & vbCrLf
  1585.    Str1 = UCase$(cArabicToRoman(Year(Int(Now)) + 1))
  1586.    strDisplay = strDisplay & Str1 & " in Arabic is " & cRomanToArabic(LCase$(Str1)) & vbCrLf & vbCrLf
  1587.    Value = Year(Int(Now))
  1588.    strDisplay = strDisplay & Value & " in Roman is " & UCase$(cArabicToRoman(Value)) & vbCrLf & vbCrLf
  1589.    Value = Year(Int(Now)) - 1
  1590.    strDisplay = strDisplay & Value & " in Roman is " & UCase$(cArabicToRoman(Value)) & vbCrLf & vbCrLf
  1591.    Value = Year(Int(Now)) + 1
  1592.    strDisplay = strDisplay & Value & " in Roman is " & UCase$(cArabicToRoman(Value)) & vbCrLf & vbCrLf
  1593.    txt_Result = strDisplay
  1594.    'time the function
  1595.    Str1 = Text1.Text
  1596.    TimerStartOk = Timer
  1597.    For i = 1 To Iteration
  1598.       strResult = cArabicToRoman(1996)
  1599.    Next i
  1600.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1601. End Sub
  1602. Private Sub TestAsciiEbcdic()
  1603.    Dim intResult        As Integer
  1604.    Dim strResult        As String
  1605.    Dim strDisplay       As String
  1606.    Dim i                As Integer
  1607.    Dim Str1             As String
  1608.    Dim Str2             As String
  1609.    intResult = 0
  1610.    strResult = ""
  1611.    strDisplay = ""
  1612.    Str1 = Text1.Text
  1613.    Str2 = Str1
  1614.    Call cCnvASCIItoEBCDIC(Str2)
  1615.    strDisplay = strDisplay & "To EBCDIC of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1616.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1617.    strDisplay = strDisplay & "To ASCII of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1618.    Call cCnvEBCDICtoASCII(Str2)
  1619.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1620.    Str1 = "ABCDEFGH"
  1621.    Str2 = Str1
  1622.    Call cCnvASCIItoEBCDIC(Str2)
  1623.    strDisplay = strDisplay & "To EBCDIC of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1624.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1625.    strDisplay = strDisplay & "To ASCII of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1626.    Call cCnvEBCDICtoASCII(Str2)
  1627.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1628.    Str1 = "01234567890"
  1629.    Str2 = Str1
  1630.    Call cCnvASCIItoEBCDIC(Str2)
  1631.    strDisplay = strDisplay & "To EBCDIC of '" & Str1 & "' is" & vbCrLf & vbCrLf
  1632.    strDisplay = strDisplay & "'" & Str2 & "'" & vbCrLf & vbCrLf
  1633.    strDisplay = strDisplay & "To ASCII of '" & Str2 & "' is" & vbCrLf & vbCrLf
  1634.    Call cCnvEBCDICtoASCII(Str2)
  1635.    strDisplay = strDisplay & "'" & Str2 & "'"
  1636.    txt_Result = strDisplay
  1637.    'time the function
  1638.    Str1 = Text1.Text
  1639.    TimerStartOk = Timer
  1640.    For i = 1 To Iteration
  1641.       Call cCnvASCIItoEBCDIC(Str1)
  1642.    Next i
  1643.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1644. End Sub
  1645. Private Sub TestPatternMatch()
  1646.    Dim intResult        As Integer
  1647.    Dim strResult        As String
  1648.    Dim strDisplay       As String
  1649.    Dim i                As Integer
  1650.    Dim Str1             As String
  1651.    Dim Str2             As String
  1652.    intResult = 0
  1653.    strResult = ""
  1654.    strDisplay = ""
  1655.    Str1 = "Under the blue sky, the sun lights"
  1656.    strDisplay = "PatternMatch '" & Str1 & "' with" & vbCrLf & vbCrLf
  1657.    Str2 = "*"
  1658.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1659.    Str2 = "*??*???*?"
  1660.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1661.    Str2 = "*Under*"
  1662.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1663.    Str2 = "*sky*"
  1664.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1665.    Str2 = "*lights"
  1666.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1667.    Str2 = "??der*sky*ligh??*"
  1668.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1669.    Str2 = "Under?the * s??,*"
  1670.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf & vbCrLf
  1671.    Str2 = "*under*"
  1672.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1673.    Str2 = "Under*sun"
  1674.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf
  1675.    Str2 = "Under t??e*"
  1676.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternMatch(Str1, Str2) & vbCrLf & vbCrLf
  1677.    txt_Result = strDisplay
  1678.    'time the function
  1679.    Str2 = "Under?the * s??,*"
  1680.    TimerStartOk = Timer
  1681.    For i = 1 To Iteration
  1682.       intResult = cPatternMatch(Str1, Str2)
  1683.    Next i
  1684.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1685. End Sub
  1686. Private Sub TestPatternExtMatch()
  1687.    Dim intResult        As Integer
  1688.    Dim strResult        As String
  1689.    Dim strDisplay       As String
  1690.    Dim i                As Integer
  1691.    Dim Str1             As String
  1692.    Dim Str2             As String
  1693.    intResult = 0
  1694.    strResult = ""
  1695.    strDisplay = ""
  1696.    Str1 = "Under the blue sky, the sun lights"
  1697.    strDisplay = "PatternExtMatch '" & Str1 & "' with" & vbCrLf & vbCrLf
  1698.    Str2 = "*"
  1699.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1700.    Str2 = "*??*???*?"
  1701.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1702.    Str2 = "*Under*"
  1703.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1704.    Str2 = "*sky*"
  1705.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1706.    Str2 = "*lights"
  1707.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1708.    Str2 = "??der*sky*ligh??*"
  1709.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1710.    Str2 = "Under?the * s??,*"
  1711.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1712.    Str2 = "'U-U''a-z''a-z''a-z''a-z'?the *"
  1713.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1714.    Str2 = "'U-U''!A-Z''^A-Z''^A-Z''!A-Z'?the *'s-s'"
  1715.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1716.    Str2 = "~55~6E*~73"
  1717.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1718.    Str2 = "'Uu''Nn''dD''eE''opqrst'?the *'rstu'"
  1719.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1720.    Str2 = "Under?the *'~72~73~74~75'"
  1721.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf & vbCrLf
  1722.    Str2 = "*under*"
  1723.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1724.    Str2 = "Under*sun"
  1725.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1726.    Str2 = "Under t??e*"
  1727.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1728.    Str2 = "'U-U''!a-z''^A-Z''^A-Z''!A-Z'?the *'!s-s'"
  1729.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1730.    Str2 = "~55~6G*~73"
  1731.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1732.    Str2 = "'Uu''Nn''dD''eE''opqrst'?the *'rStu'"
  1733.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf
  1734.    Str2 = "Under?the *'~72~53~74~75'"
  1735.    strDisplay = strDisplay & "'" & Str2 & "'  is " & cPatternExtMatch(Str1, Str2) & vbCrLf & vbCrLf
  1736.    txt_Result = strDisplay
  1737.    'time the function
  1738.    Str2 = "Under?the * s??,*"
  1739.    TimerStartOk = Timer
  1740.    For i = 1 To Iteration
  1741.       intResult = cPatternExtMatch(Str1, Str2)
  1742.    Next i
  1743.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1744. End Sub
  1745. Private Sub TestCheckNumericity()
  1746.    Dim intResult        As Integer
  1747.    Dim strResult        As String
  1748.    Dim strDisplay       As String
  1749.    Dim i                As Integer
  1750.    Dim Str1             As String
  1751.    intResult = 0
  1752.    strResult = ""
  1753.    strDisplay = ""
  1754.      
  1755.    Str1 = Text1.Text
  1756.    strDisplay = strDisplay & "'" & Str1 & "' is "
  1757.    strDisplay = strDisplay & IIf(cCheckNumericity(Str1), "Numeric", "not Numeric") & vbCrLf & vbCrLf
  1758.    Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1759.    strDisplay = strDisplay & "'" & Str1 & "' is "
  1760.    strDisplay = strDisplay & IIf(cCheckNumericity(Str1), "Numeric", "not Numeric") & vbCrLf & vbCrLf
  1761.    Str1 = "1234567890"
  1762.    strDisplay = strDisplay & "'" & Str1 & "' is "
  1763.    strDisplay = strDisplay & IIf(cCheckNumericity(Str1), "Numeric", "not Numeric") & vbCrLf & vbCrLf
  1764.    Str1 = "-1234567890"
  1765.    strDisplay = strDisplay & "'" & Str1 & "' is "
  1766.    strDisplay = strDisplay & IIf(cCheckNumericity(Str1), "Numeric", "not Numeric") & vbCrLf & vbCrLf
  1767.    Str1 = "+12345.67890"
  1768.    strDisplay = strDisplay & "'" & Str1 & "' is "
  1769.    strDisplay = strDisplay & IIf(cCheckNumericity(Str1), "Numeric", "not Numeric") & vbCrLf & vbCrLf
  1770.    txt_Result = strDisplay
  1771.    'time the function
  1772.    Str1 = Text1.Text
  1773.    TimerStartOk = Timer
  1774.    For i = 1 To Iteration
  1775.       intResult = cCheckNumericity(Str1)
  1776.    Next i
  1777.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1778. End Sub
  1779. Private Sub TestAlphaDigit()
  1780.    Dim intResult        As Integer
  1781.    Dim strResult        As String
  1782.    Dim strDisplay       As String
  1783.    Dim i                As Integer
  1784.    Dim Str1             As String
  1785.    intResult = 0
  1786.    strResult = ""
  1787.    strDisplay = ""
  1788.      
  1789.    Str1 = "1234567890"
  1790.    strDisplay = strDisplay & "Add digit in '" & Str1 & "' is '" & cAddDigit(Str1) & "'" & vbCrLf & vbCrLf
  1791.    strDisplay = strDisplay & "Num digit in '" & Str1 & "' is '" & cNumDigit(Str1) & "'" & vbCrLf & vbCrLf
  1792.    strDisplay = strDisplay & "Cpl digit in '" & Str1 & "' is '" & cCplDigit(Str1) & "'" & vbCrLf & vbCrLf
  1793.    strDisplay = strDisplay & "Cpl alpha in '" & Str1 & "' is '" & cCplAlpha(Str1) & "'" & vbCrLf & vbCrLf & vbCrLf
  1794.    Str1 = Text1.Text
  1795.    strDisplay = strDisplay & "Add digit in '" & Str1 & "' is '" & cAddDigit(Str1) & "'" & vbCrLf & vbCrLf
  1796.    strDisplay = strDisplay & "Num digit in '" & Str1 & "' is '" & cNumDigit(Str1) & "'" & vbCrLf & vbCrLf
  1797.    strDisplay = strDisplay & "Cpl digit in '" & Str1 & "' is '" & cCplDigit(Str1) & "'" & vbCrLf & vbCrLf
  1798.    strDisplay = strDisplay & "Cpl alpha in '" & Str1 & "' is '" & cCplAlpha(Str1) & "'"
  1799.    txt_Result = strDisplay
  1800.    'time the function
  1801.    Str1 = Text1.Text
  1802.    TimerStartOk = Timer
  1803.    For i = 1 To Iteration
  1804.       intResult = cAddDigit(Str1)
  1805.    Next i
  1806.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1807. End Sub
  1808. Private Sub TestH2X()
  1809.    Dim intResult        As Integer
  1810.    Dim strResult        As String
  1811.    Dim strDisplay       As String
  1812.    Dim i                As Integer
  1813.    Dim Str1             As String
  1814.    intResult = 0
  1815.    strResult = ""
  1816.    strDisplay = ""
  1817.      
  1818.    strDisplay = "Hexa to Integer" & vbCrLf & vbCrLf
  1819.    Str1 = "0"
  1820.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1821.    Str1 = "1"
  1822.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1823.    Str1 = "A"
  1824.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1825.    Str1 = "A1"
  1826.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1827.    Str1 = "A1B"
  1828.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1829.    Str1 = "7FFF"
  1830.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1831.    Str1 = "A1B2"
  1832.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf
  1833.    Str1 = "FFFF"
  1834.    strDisplay = strDisplay & Str1 & " -> " & cH2I(Str1) & vbCrLf & vbCrLf
  1835.    strDisplay = strDisplay & "Hexa to Long" & vbCrLf & vbCrLf
  1836.    Str1 = "0"
  1837.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1838.    Str1 = "1"
  1839.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1840.    Str1 = "A"
  1841.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1842.    Str1 = "A1"
  1843.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1844.    Str1 = "A1B"
  1845.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1846.    Str1 = "A1B2"
  1847.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1848.    Str1 = "7FFFFFFF"
  1849.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1850.    Str1 = "B2A1A1B2"
  1851.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf
  1852.    Str1 = "FFFFFFFF"
  1853.    strDisplay = strDisplay & Str1 & " -> " & cH2L(Str1) & vbCrLf & vbCrLf
  1854.    txt_Result = strDisplay
  1855.    'time the function
  1856.    Str1 = Text1.Text
  1857.    TimerStartOk = Timer
  1858.    For i = 1 To Iteration
  1859.       intResult = cH2I(Str1)
  1860.    Next i
  1861.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1862. End Sub
  1863. Private Sub TestMorse()
  1864.    Dim intResult        As Integer
  1865.    Dim strResult        As String
  1866.    Dim strDisplay       As String
  1867.    Dim i                As Integer
  1868.    Dim Str1             As String
  1869.    intResult = 0
  1870.    strResult = ""
  1871.    strDisplay = ""
  1872.      
  1873.    Str1 = Text1.Text
  1874.    strDisplay = strDisplay + "Morse code of '" & Str1 & "' is " & cMorse(Str1) & vbCrLf & vbCrLf
  1875.    Str1 = "SOS"
  1876.    strDisplay = strDisplay + "Morse code of '" & Str1 & "' is " & cMorse(Str1) & vbCrLf & vbCrLf
  1877.    Str1 = "T2WIN-32"
  1878.    strDisplay = strDisplay + "Morse code of '" & Str1 & "' is " & cMorse(Str1) & vbCrLf & vbCrLf
  1879.    Str1 = "Nothing can beat the fox"
  1880.    strDisplay = strDisplay + "Morse code of '" & Str1 & "' is " & cMorse(Str1) & vbCrLf & vbCrLf
  1881.    txt_Result = strDisplay
  1882.    'time the function
  1883.    Str1 = Text1.Text
  1884.    TimerStartOk = Timer
  1885.    For i = 1 To Iteration
  1886.       strResult = cMorse(Str1)
  1887.    Next i
  1888.    mdiMCSTR.pnl_Timer = Int((Timer - TimerStartOk) * 1000)
  1889. End Sub
  1890.